Script: --on windowEvent wdID,wdName,objNo,objName,objValue¬¬Global gIssueWindowID, gWindowPositions, selectedTitle¬¬---------------------¬-- This is window #3¬---------------------¬¬if objValue="Open" then¬ -- Restore old window position¬ put OldWindowPosition(3) into windowRect¬ if windowRect = empty then centerWindow wdName¬ else wsSet wdID,"0","Rect",windowRect¬ ¬ put wdID into gIssueWindowID¬ send setupComicIssue to cd 2¬ wsSet "Comic Issue","0","Name",selectedTitle¬ ¬else if objValue="Close" then ¬ -- save the window position¬ --put "3" & tab & wdName & tab & wsGet(wdID,"0","Rect") into line 3 of gWindowPositions¬end if¬¬--end windowEvent
Balloon: Choose the type of comic this is here. Most comics are considered regular issues, but some are Annuals, Giant-Sized Specials, or other types of special editions.
Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬global serialNum¬¬put wsGet(wdID,"IssueNum","Text") into IssueNum¬put wsGet(wdID,"Quantity","Text") into Quantity¬if issueNum ≠ empty and Quantity ≠ empty and (serialNum <> empty) then ¬ wsSet wdID, "Save", "Disabled", "False"¬else wsSet wdID, "Save", "Disabled", "True"¬--end mouseUp¬
ItemType: TEXT
Rect: 162,35,208,51
Name: IssueNum
LockText: FALSE
KeyFilter: bOnly1LineNew
Balloon: Enter the issue number here. For instance, Enter “301” for Captain America #301.
Script: --on closeField wdID,wdName,objNo,objName,objValue¬global serialNum¬¬put wsGet(wdID,"Through","Text") into throughNum¬if throughNum is not a number or objValue is not a number then¬ wsSet wdID,"Through","Text",objValue¬end if¬¬put wsGet(wdID,"IssueNum","Text") into IssueNum¬wsSet wdID,"Through","Text", IssueNum¬¬put wsGet(wdID,"Quantity","Text") into Quantity¬if issueNum ≠ empty and Quantity ≠ empty and (serialNum <> empty) then ¬ wsSet wdID, "Save", "Disabled", "False"¬else wsSet wdID, "Save", "Disabled", "True"¬--end closeField¬
ItemType: TEXT
Rect: 218,35,264,51
Name: Through
LockText: FALSE
KeyFilter: bOnly1LineNew
Balloon: Enter the issue number here. For instance, Enter “301” for Captain America #301.
Script: --on closeField wdID,wdName,objNo,objName,objValue¬global serialNum¬¬put wsGet(wdID,"IssueNum","Text") into IssueNum¬¬if issueNum <> objValue then¬ if objValue is not a number then¬ beep¬ wsSet wdID,objNo,issueNum¬ else if objValue <> trunc(objValue) then¬ beep¬ wsSet wdID,objNo,trunc(objValue)¬ end if¬end if¬¬put wsGet(wdID,"Quantity","Text") into Quantity¬if issueNum ≠ empty and Quantity ≠ empty and (serialNum <> empty) then ¬ wsSet wdID, "Save", "Disabled", "False"¬else wsSet wdID, "Save", "Disabled", "True"¬--end closeField¬
Balloon: Enter the issue variation here. Examples of issue variations are collectors’ sets, gold editions, etc.
Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬global serialNum¬¬put wsGet(wdID,"IssueNum","Text") into IssueNum¬put wsGet(wdID,"Quantity","Text") into Quantity¬if issueNum ≠ empty and Quantity ≠ empty and (serialNum <> empty) then ¬ wsSet wdID, "Save", "Disabled", "False"¬else wsSet wdID, "Save", "Disabled", "True"¬--end mouseUp¬
ItemType: POP
Rect: 401,36,474,49
AutoSize: FALSE
Name: Printing
Text: 1¬2¬3¬4¬5¬6¬7¬8¬9¬-¬Other…
Balloon: Choose the printing number here. Most comics are first printings, but if a comic was very popular, it will occasionally be reprinted a second, third (or in the case of Classics Illustrated, a 24th time)
Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬global serialNum¬¬if objValue = "Other…" then¬ ask "Printing #:" with "1"¬ if it <> empty then wsSet wdID, objNo,"SelectionText",it¬ else wsSet wdID,objNo,"SelectionText",1¬end if¬¬put wsGet(wdID,"IssueNum","Text") into IssueNum¬put wsGet(wdID,"Quantity","Text") into Quantity¬if issueNum ≠ empty and Quantity ≠ empty and (serialNum <> empty) then ¬ wsSet wdID, "Save", "Disabled", "False"¬else wsSet wdID, "Save", "Disabled", "True"¬--end mouseUp¬
ItemType: POP
Rect: 94,67,150,80
AutoSize: FALSE
Name: Condition
Text: M¬NM¬VF¬FN¬VG¬GD¬FA¬P
TitleItem: 35
Balloon: Enter the condition of the issue here. This is a measure of how well-preserved the particular issue is.
Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬global serialNum, kBareDecimalFormatString¬¬put GetNum(wsGet(wdID,"ValuePeriod4", "Text"),"US") into basePrice¬¬if wsGet(wdID,"Price","Text") <> empty then¬ wsSet wdID,"Price","Text", numFormat(gradedPrice(objValue,basePrice),kBareDecimalFormatString) ¬end if¬¬put wsGet(wdID,"IssueNum","Text") into IssueNum¬put wsGet(wdID,"Quantity","Text") into Quantity¬if issueNum ≠ empty and Quantity ≠ empty and (serialNum <> empty) then ¬ wsSet wdID, "Save", "Disabled", "False"¬else wsSet wdID, "Save", "Disabled", "True"¬--end mouseUp¬
ItemType: TEXT
Rect: 218,64,248,80
Name: Quantity
LockText: FALSE
KeyFilter: Only4Digits
Balloon: Enter the number of copies of this issue you have here.
Script: --on closeField wdID,wdName,objNo,objName,objValue¬global serialNum¬¬put wsGet(wdID,"IssueNum","Text") into IssueNum¬put wsGet(wdID,"Quantity","Text") into Quantity¬if issueNum ≠ empty and Quantity ≠ empty and (serialNum <> empty) then ¬ wsSet wdID, "Save", "Disabled", "False"¬else wsSet wdID, "Save", "Disabled", "True"¬--end closeField
ItemType: TEXT
Rect: 335,64,392,80
Name: CoverPrice
LockText: FALSE
KeyFilter: OnlyNumsIntl
Balloon: This is the price listed on the front cover of this comic. This may be more or less than the price you paid to acquire it.
Script: --on closeField wdID,wdName,objNo,objName,objValue¬global serialNum, gIssueWindowID¬global kBareDecimalFormatString¬¬put Getnum(objValue,"US") into EnglishCoverPrice¬¬if coverPrice ≠ empty then put numFormat(EnglishCoverPrice,kBareDecimalFormatString) into coverPrice¬put "CoverPrice_Text:" & coverPrice & return into theProps¬¬if wsGet(gIssueWindowID,"PricePaid","Text") = empty then put "PricePaid_Text:" & coverPrice & return after theProps¬if wsGet(gIssueWindowID,"ValuePeriod4","Text") = empty then put "ValuePeriod4_Text:" & coverPrice & return after theProps¬if wsGet(gIssueWindowID,"ValuePeriod3","Text") = empty then put "ValuePeriod3_Text:" & coverPrice & return after theProps¬if wsGet(gIssueWindowID,"ValuePeriod2","Text") = empty then put "ValuePeriod2_Text:" & coverPrice & return after theProps¬if wsGet(gIssueWindowID,"ValuePeriod1","Text") = empty then put "ValuePeriod1_Text:" & coverPrice & return after theProps¬¬if wsGet(gIssueWindowID,"Price","Text") = empty then¬ put "Price_Text:" & Numformat(gradedPrice(wsGet(wdID,"Condition","TextofSelection"),EnglishCoverPrice),kBareDecimalFormatString) & return after theProps¬end if¬¬put wsGet(gIssueWindowID,"IssueNum","Text") into IssueNum¬put wsGet(gIssueWindowID,"Quantity","Text") into Quantity¬put "Save_Disabled:" & ((issueNum = empty) or (quantity = empty) or (serialNum = empty)) & return after theProps ¬¬wsSet gIssueWindowID,"0", "Properties", theProps¬--end closeField¬
ItemType: TEXT
Rect: 94,103,151,119
Name: PricePaid
LockText: FALSE
KeyFilter: OnlyNumsIntl
Balloon: This is the price you paid to acquire this issue.
Script: --on closeField wdID,wdName,objNo,objName,objValue¬global serialNum, gIssueWindowID, kBareDecimalFormatString¬¬put wsGet(gIssueWindowID,"IssueNum","Text") into IssueNum¬put wsGet(gIssueWindowID,"Quantity","Text") into Quantity¬if issueNum ≠ empty and Quantity ≠ empty and (serialNum <> empty) then ¬ wsSet gIssueWindowID, "Save", "Disabled", "False"¬else wsSet gIssueWindowID, "Save", "Disabled", "True"¬¬put GetNum(objValue,"US") into theEnglishNum¬if theEnglishNum ≠ empty then put numFormat(theEnglishNum,kBareDecimalFormatString) into theNum¬wsSet gIssueWindowID,objName,"Text",theNum¬¬--end closeField
ItemType: TEXT
Rect: 94,123,151,139
Name: Price
LockText: FALSE
KeyFilter: OnlyNumsIntl
Balloon: This is the price you are willing to sell the comic for. It will appear on price labels and price lists.
Script: --on closeField wdID,wdName,objNo,objName,objValue¬global serialNum, kBareDecimalFormatString¬¬if wsGet(wdID,"IssueNum","Text") ≠ empty and wsGet(wdID,"Quantity","Text") ≠ empty and (serialNum <> empty) then ¬ wsSet wdID, "Save", "Disabled", "False"¬else wsSet wdID, "Save", "Disabled", "True"¬¬put GetNum(objValue,"US") into theEnglishNum¬if theEnglishNum ≠ empty then put numFormat(theEnglishNum,kBareDecimalFormatString) into theNum¬wsSet wdID,objNo,"Text",theNum¬--end closeField
ItemType: TEXT
Rect: 209,103,269,119
Name: ValuePeriod1
LockText: FALSE
KeyFilter: OnlyNumsIntl
Balloon: This is how much the comic was worth in the first period you’ve kept records for.
Script: --on closeField wdID,wdName,objNo,objName,objValue¬global serialNum, kBareDecimalFormatString¬¬put wsGet(wdID,"IssueNum","Text") into IssueNum¬put wsGet(wdID,"Quantity","Text") into Quantity¬if issueNum ≠ empty and Quantity ≠ empty and (serialNum <> empty) then ¬ wsSet wdID, "Save", "Disabled", "False"¬else wsSet wdID, "Save", "Disabled", "True"¬¬put GetNum(objValue,"US") into theEnglishNum¬if theEnglishNum ≠ empty then put numFormat(theEnglishNum,kBareDecimalFormatString) into theNum¬wsSet wdID,objName,"Text",theNum¬--end closeField
ItemType: TEXT
Rect: 332,103,392,119
Name: ValuePeriod2
LockText: FALSE
KeyFilter: OnlyNumsIntl
Balloon: This is how much the comic was worth in the 2nd period you’ve kept records for.
Script: --on closeField wdID,wdName,objNo,objName,objValue¬global serialNum, kBareDecimalFormatString¬¬put wsGet(wdID,"IssueNum","Text") into IssueNum¬put wsGet(wdID,"Quantity","Text") into Quantity¬if issueNum ≠ empty and Quantity ≠ empty and (serialNum <> empty) then ¬ wsSet wdID, "Save", "Disabled", "False"¬else wsSet wdID, "Save", "Disabled", "True"¬¬put GetNum(objValue,"US") into theEnglishNum¬if theEnglishNum ≠ empty then put numFormat(theEnglishNum,kBareDecimalFormatString) into theNum¬wsSet wdID,objName,"Text",theNum¬--end closeField
ItemType: TEXT
Rect: 209,123,269,139
Name: ValuePeriod3
LockText: FALSE
KeyFilter: OnlyNumsIntl
Balloon: This is how much the comic was worth in the 3rd period you’ve kept records for.
Script: --on closeField wdID,wdName,objNo,objName,objValue¬global serialNum, kBareDecimalFormatString¬¬put wsGet(wdID,"IssueNum","Text") into IssueNum¬put wsGet(wdID,"Quantity","Text") into Quantity¬if issueNum ≠ empty and Quantity ≠ empty and (serialNum <> empty) then ¬ wsSet wdID, "Save", "Disabled", "False"¬else wsSet wdID, "Save", "Disabled", "True"¬¬put GetNum(objValue,"US") into theEnglishNum¬if theEnglishNum ≠ empty then put numFormat(theEnglishNum,kBareDecimalFormatString) into theNum¬wsSet wdID,objName,"Text",theNum¬--end closeField
ItemType: TEXT
Rect: 332,123,392,139
Name: ValuePeriod4
LockText: FALSE
KeyFilter: OnlyNumsIntl
Balloon: This is how much the comic was worth in the 4th period you’ve kept records for.
Script: --on closeField wdID,wdName,objNo,objName,objValue¬global serialNum, kBareDecimalFormatString¬¬put wsGet(wdID,"IssueNum","Text") into IssueNum¬put wsGet(wdID,"Quantity","Text") into Quantity¬if issueNum ≠ empty and Quantity ≠ empty and (serialNum <> empty) then ¬ wsSet wdID, "Save", "Disabled", "False"¬else wsSet wdID, "Save", "Disabled", "True"¬¬put GetNum(objValue,"US") into theEnglishNum¬if theEnglishNum ≠ empty then put numFormat(theEnglishNum,kBareDecimalFormatString) into theNum¬wsSet wdID,objName,"Text",theNum¬--end closeField
ItemType: TEXT
Rect: 11,162,241,226
Name: Notes
LockText: FALSE
Scrolling: TRUE
Balloon: Enter any notes you’d like for this issue here. For instance, you could note the artist, writer, special events in the story, etc. Certain events such as origins are noted so that they can be easily found using the “Find Comics” command.
Script: --on closeField wdID,wdName,objNo,objName,objValue¬global serialNum¬¬put wsGet(wdID,"IssueNum","Text") into IssueNum¬put wsGet(wdID,"Quantity","Text") into Quantity¬if issueNum ≠ empty and Quantity ≠ empty and (serialNum <> empty) then ¬ wsSet wdID, "Save", "Disabled", "False"¬else wsSet wdID, "Save", "Disabled", "True"¬¬--end closeField
ItemType: TEXT
Rect: 58,250,110,262
AutoSize: FALSE
Name: LastModified
WhiteColor: -8739,-8739,-8739
Balloon: This is the date that this issue was last updated.
ItemType: TEXT
Rect: 208,250,276,262
AutoSize: FALSE
Name: LastPricePrinted
WhiteColor: -8739,-8739,-8739
Balloon: This is the last price that was printed on a price label.
ItemType: PUSH
Rect: 15,270,95,290
TextFont: Chicago
TextSize: 12
Name: Remove
AutoClose: TRUE
Balloon: Click here to remove (delete) this issue from the ComicBase.
ItemType: PUSH
Rect: 305,270,385,290
TextFont: Chicago
TextSize: 12
Name: Cancel
CancelItem: TRUE
AutoClose: TRUE
Balloon: Click here to cancel any changes you have made to this issue.
ItemType: PUSH
Rect: 400,270,480,290
TextFont: Chicago
TextSize: 12
AutoSize: FALSE
Disabled: TRUE
Name: Save
DefaultItem: TRUE
Balloon: Click here to save any new changes you have made to this issue.
ItemType: TEXT
Rect: 162,23,206,35
Name: NumberLabel
WhiteColor: -26215,-13108,-1
TextStyle: Bold
TextAlign: Right
Text: Number
ItemType: TEXT
Rect: 162,66,217,78
WhiteColor: -8739,-8739,-8739
TextStyle: Bold
TextAlign: Right
Text: Quantity:
ItemType: TEXT
Rect: 260,66,334,78
WhiteColor: -8739,-8739,-8739
TextStyle: Bold
TextAlign: Right
Text: Cover Price:
ItemType: TEXT
Rect: 57,105,90,117
WhiteColor: -8739,-8739,-8739
TextStyle: Bold
TextAlign: Right
Text: Cost:
ItemType: TEXT
Rect: 11,150,50,162
WhiteColor: -8739,-8739,-8739
TextStyle: Bold
TextAlign: Right
Text: Notes:
ItemType: TEXT
Rect: 171,105,203,117
WhiteColor: -17477,-17477,-17477
TextStyle: Bold
TextAlign: Right
Text: 1993
ItemType: TEXT
Rect: 294,105,326,117
WhiteColor: -17477,-17477,-17477
TextStyle: Bold
TextAlign: Right
Text: 1994
ItemType: TEXT
Rect: 171,125,203,137
WhiteColor: -17477,-17477,-17477
TextStyle: Bold
TextAlign: Right
Text: 1996
ItemType: TEXT
Rect: 294,125,326,137
WhiteColor: -17477,-17477,-17477
TextStyle: Bold
TextAlign: Right
Text: 1997
ItemType: TEXT
Rect: 11,250,57,262
WhiteColor: -8739,-8739,-8739
TextAlign: Right
Text: Modified:
ItemType: TEXT
Rect: 117,250,207,262
Name: Last Price Printed:
WhiteColor: -8739,-8739,-8739
TextAlign: Right
Text: Last Price Printed:
ItemType: TEXT
Rect: 11,125,90,137
WhiteColor: -8739,-8739,-8739
TextStyle: Bold
TextAlign: Right
Text: Selling Price:
ItemType: LBL
Rect: 35,66,94,78
TextStyle: Bold
WhiteColor: -8739,-8739,-8739
Text: Condition:
ItemType: TEXT
Rect: 28,23,58,35
Name: TypeLabel
WhiteColor: -26215,-13108,-1
TextStyle: Bold
TextAlign: Right
Text: Type
ItemType: TEXT
Rect: 275,23,329,35
Name: VariationLabel
WhiteColor: -26215,-13108,-1
TextStyle: Bold
TextAlign: Right
Text: Variation
ItemType: TEXT
Rect: 401,23,449,35
Name: PrintingLabel
WhiteColor: -26215,-13108,-1
TextStyle: Bold
TextAlign: Right
Text: Printing
ItemType: TEXT
Rect: 215,23,262,35
Name: ThroughLabel
WhiteColor: -26215,-13108,-1
TextStyle: Bold
TextAlign: Right
Text: Through
ItemType: CHK
Rect: 421,240,484,252
Visible: FALSE
Name: Marked
Balloon: Click here to mark this issue as being of special interest. Some reports let you choose to print just the issues that are marked.
ItemType: TEXT
Rect: 252,162,482,226
Name: Storylines
LockText: FALSE
Scrolling: TRUE
Balloon: Enter any notes you’d like for this issue here. For instance, you could note the artist, writer, special events in the story, etc. Certain events such as origins are noted so that they can be easily found using the “Find Comics” command.
Script: --on closeField wdID,wdName,objNo,objName,objValue¬global serialNum¬¬put wsGet(wdID,"IssueNum","Text") into IssueNum¬put wsGet(wdID,"Quantity","Text") into Quantity¬if issueNum ≠ empty and Quantity ≠ empty and (serialNum <> empty) then ¬ wsSet wdID, "Save", "Disabled", "False"¬else wsSet wdID, "Save", "Disabled", "True"¬¬--end closeField
ItemType: TEXT
Rect: 252,150,318,162
Name: Storyline:
WhiteColor: -8739,-8739,-8739
TextStyle: Bold
TextAlign: Right
Text: Storylines:
ItemType: TEXT
Rect: 56,230,241,246
Name: Writer
LockText: FALSE
KeyFilter: Only1Line
Balloon: This is the writer of the comic. This is also known as the scripter or plotter of the comic. Use commas to separate name of people if you'd like to list two or more people here.
ItemType: TEXT
Rect: 11,231,56,243
Name: WriterLabel
WhiteColor: -8739,-8739,-8739
TextStyle: Bold
TextAlign: Right
Text: Writer:
ItemType: TEXT
Rect: 295,230,482,246
Name: Artist
LockText: FALSE
KeyFilter: Only1Line
Balloon: This is the name of the artist or artists who worked on this comic. Generally, the penciller is shown, although you may add other artists (inkers, colorists, etc.) as well. Use commas to separate name of people if you'd like to list two or more people here.
